(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 13.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    178750,       4292]
NotebookOptionsPosition[    175714,       4241]
NotebookOutlinePosition[    176108,       4257]
CellTagsIndexPosition[    176065,       4254]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"--", 
    RowBox[{"--", 
     RowBox[{"-", "Baseline"}]}]}], ",", " ", 
   RowBox[{
    RowBox[{"Perfect", " ", "Altruism", " ", 
     RowBox[{"(", 
      RowBox[{"\[Omega]", "=", "1"}], ")"}]}], " ", "+", " ", 
    RowBox[{"Cooresponding", " ", "Homogenous", " ", 
     RowBox[{
      RowBox[{"version", "--"}], "--"}]}], "-"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.896934233086007*^9, 3.8969342385784063`*^9}, {
  3.899181415853004*^9, 3.899181439187718*^9}, {3.899182431109223*^9, 
  3.899182431608686*^9}, {3.8997894982705193`*^9, 3.8997895044474688`*^9}, {
  3.902726616882114*^9, 
  3.902726631235332*^9}},ExpressionUUID->"67beb7bc-9248-43dd-b4af-\
1546c6fd0f2a"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.902976047976083*^9, {3.902976143788185*^9, 3.90297617997826*^9}, {
   3.902976254138671*^9, 3.902976260573105*^9}, 3.9029763024647923`*^9, {
   3.902977275378729*^9, 3.902977300373124*^9}, {3.9029780615104628`*^9, 
   3.90297808004438*^9}, {3.902978166126895*^9, 3.902978222644557*^9}, {
   3.902978267044511*^9, 3.9029782801762867`*^9}, 3.902980172175805*^9, 
   3.902980256788726*^9},ExpressionUUID->"0e3423c1-6fa4-4a1f-86df-\
632925b9f48e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"lrintrparm", "=", 
   RowBox[{"Round", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Import", "[", 
       RowBox[{
        RowBox[{"path", "<>", "\"\<Outputs/Tables/lrinterestrate.txt\>\""}], 
        ",", "\"\<Table\>\""}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", "0.001"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"matchlrirBaselinyearsparm", "=", "100"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"temp", "=", 
   RowBox[{"Import", "[", 
    RowBox[{"path", "<>", "\"\<Outputs/Data/sdByCountry.csv\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"worldSd", "=", 
   RowBox[{"WeightedData", "[", 
    RowBox[{
     RowBox[{"Rest", "[", 
      RowBox[{"temp", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], ",", 
     RowBox[{"Rest", "[", 
      RowBox[{"temp", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "]"}]}], ";", 
  RowBox[{"Clear", "[", "temp", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"stdevbetaparm", "=", 
   RowBox[{"Round", "[", 
    RowBox[{
     RowBox[{"Median", "[", "worldSd", "]"}], ",", "0.0001"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gNyearsFutureparm", "=", "100"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gNssparm", "=", 
   SuperscriptBox["0.99", "25"]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"formattedData", "=", 
   RowBox[{
    RowBox[{"Rest", "[", 
     RowBox[{"Import", "[", 
      RowBox[{
       RowBox[{"path", "<>", "\"\<Outputs/Data/grPopGdppc.csv\>\""}], ",", 
       "\"\<Table\>\""}], "]"}], "]"}], "/.", " ", 
    RowBox[{
     RowBox[{"{", "s_String", "}"}], ":>", 
     RowBox[{"StringSplit", "[", 
      RowBox[{"s", ",", "\"\<,\>\""}], "]"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gNCutoffsparms", "=", 
   RowBox[{"ToExpression", "[", 
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{"formattedData", ",", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Length", "[", "#", "]"}], ">", "1"}], "&&", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "!=", "\"\<\>\""}]}], "&"}]}], 
      "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"gYCutoffstarget", "=", 
   RowBox[{"ToExpression", "[", 
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{"formattedData", ",", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Length", "[", "#", "]"}], ">", "2"}], "&&", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "!=", "\"\<\>\""}]}], "&"}]}], 
      "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}], "]"}]}], ";", 
  RowBox[{"Clear", "[", "formattedData", "]"}], ";"}], "\[IndentingNewLine]", 

 RowBox[{
  RowBox[{
   RowBox[{"gDCutoffsparm", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1775", ",", "0.9843491863058939`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1875", ",", "1.087066741163673`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2000", ",", "1.3259089979528533`"}], "}"}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "Values", " ", "for", " ", "gDCutoffsparm", " ", "are", " ", "chosen", " ",
     "so", " ", "that", " ", "the", " ", "model", " ", "generates", " ", 
    "gYCutoffstarget", " ", "once", " ", "it", " ", "is", " ", "run"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gDyearsFutureparm", "=", "100"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gDssparm", "=", 
   SuperscriptBox["1.005", "25"]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Nu]parm", "=", "0.33"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Delta]parm", "=", 
   RowBox[{"1", "-", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "0.1"}], ")"}], "25"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Piessparm", "=", "0.666667"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lrconsshparm", "=", 
   RowBox[{"Round", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Import", "[", 
       RowBox[{
        RowBox[{"path", "<>", "\"\<Outputs/Tables/lrconsshare.txt\>\""}], 
        ",", "\"\<Table\>\""}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", "0.01"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nTypesParm", "=", "10000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"precisionparm", "=", "100"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"inityearparm", "=", "1300"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"currentyearparm", "=", "2000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"timeparm", "=", "200"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Omega]parm", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"percentilesparm", "=", "8"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"datapieraw", "=", 
    RowBox[{
     RowBox[{"Rest", "[", 
      RowBox[{"Import", "[", 
       RowBox[{"path", "<>", "\"\</Outputs/Data/UkSurvProb.csv\>\""}], "]"}], 
      "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"datapie", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"datapieraw", "[", 
        RowBox[{"[", 
         RowBox[{
          FractionBox[
           RowBox[{"t", "-", "1550"}], "25"], "+", "1"}], "]"}], "]"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "1550", ",", "2000", ",", "25"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"smoothedpie", "=", 
    RowBox[{"smoothSurvProbs", "[", 
     RowBox[{"datapie", ",", "1275", ",", "2000"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"pop", "=", 
    RowBox[{
     RowBox[{"Rest", "[", 
      RowBox[{"Import", "[", 
       RowBox[{"path", "<>", "\"\<Outputs/Data/maddison_pop.csv\>\""}], "]"}],
       "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"N0parm", "=", 
    RowBox[{"pop", "[", 
     RowBox[{"[", "inityearparm", "]"}], "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"world", " ", "population", " ", "in", " ", "inityearparm"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Nm1parm", "=", 
    RowBox[{"pop", "[", 
     RowBox[{"[", 
      RowBox[{"inityearparm", "-", "25"}], "]"}], "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"world", " ", "population", " ", "in", " ", "inityearparm"}], " ",
     "-", "25"}], "*)"}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.902978851782681*^9, 3.902978915174181*^9}, {
   3.902979105838121*^9, 3.902979119362941*^9}, {3.90297926733532*^9, 
   3.902979279328183*^9}, {3.902979330544601*^9, 3.902979359801738*^9}, {
   3.902979399315598*^9, 3.9029794197556267`*^9}, {3.902979462011407*^9, 
   3.9029794921486483`*^9}, {3.9029795251667633`*^9, 3.902979575720098*^9}, {
   3.902979623230888*^9, 3.9029796804756002`*^9}, {3.902979822800404*^9, 
   3.902979885722909*^9}, {3.90297992055826*^9, 3.9029799786421537`*^9}, {
   3.902980061711051*^9, 3.902980127508119*^9}, {3.902980163108542*^9, 
   3.902980166470039*^9}, {3.902980208434214*^9, 3.902980208714705*^9}, {
   3.90298024539329*^9, 3.9029802585937653`*^9}, 3.9029802937836637`*^9, {
   3.902981291106406*^9, 3.902981291207201*^9}, 3.9029850842635202`*^9, {
   3.902985215858498*^9, 3.9029852164230547`*^9}, 3.902988723822831*^9, {
   3.902990752239662*^9, 3.9029907535313168`*^9}, {3.9029988375164127`*^9, 
   3.90299883766074*^9}, 3.902999064937722*^9, 
   3.903001145852022*^9},ExpressionUUID->"80642749-6d5c-454f-8484-\
9edfa202c9cf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputDataBaseline", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"lrintr", "\[Rule]", "lrintrparm"}], ",", 
     RowBox[{
     "matchlrirBaselinyears", "\[Rule]", "matchlrirBaselinyearsparm"}], ",", 
     RowBox[{"stdevbeta", "\[Rule]", "stdevbetaparm"}], ",", 
     RowBox[{"gNCutoffs", "\[Rule]", "gNCutoffsparms"}], ",", 
     RowBox[{"gNyearsFuture", "\[Rule]", "gNyearsFutureparm"}], ",", 
     RowBox[{"gNss", "\[Rule]", "gNssparm"}], ",", 
     RowBox[{"gDCutoffs", "\[Rule]", "gDCutoffsparm"}], ",", 
     RowBox[{"gDyearsFuture", "\[Rule]", "gDyearsFutureparm"}], ",", 
     RowBox[{"gDss", "\[Rule]", "gDssparm"}], ",", 
     RowBox[{"\[Nu]", "\[Rule]", "\[Nu]parm"}], ",", 
     RowBox[{"\[Delta]", "\[Rule]", "\[Delta]parm"}], ",", 
     RowBox[{"Pie", "\[Rule]", 
      RowBox[{"smoothedpie", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ",", 
     RowBox[{"Piess", "\[Rule]", "Piessparm"}], ",", 
     RowBox[{"lrconssh", "\[Rule]", "lrconsshparm"}], ",", 
     RowBox[{"nTypes", "\[Rule]", "nTypesParm"}], ",", 
     RowBox[{"precision", "\[Rule]", "precisionparm"}], ",", 
     RowBox[{"inityear", "\[Rule]", "inityearparm"}], ",", 
     RowBox[{"currentyear", "\[Rule]", "currentyearparm"}], ",", " ", 
     RowBox[{"time", "\[Rule]", "timeparm"}], ",", 
     RowBox[{"\[Omega]", "\[Rule]", "\[Omega]parm"}], ",", 
     RowBox[{"Pie28", "\[Rule]", 
      RowBox[{"smoothedpie", "[", 
       RowBox[{"[", 
        RowBox[{"30", ",", "2"}], "]"}], "]"}]}], ",", 
     RowBox[{"percentiles", "->", "percentilesparm"}], ",", 
     RowBox[{"Nm1", "->", "Nm1parm"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.899181489510675*^9, 3.8991814907985373`*^9}, {
   3.899264034692177*^9, 3.89926403534464*^9}, {3.902813504799035*^9, 
   3.902813504879342*^9}, {3.902814107515856*^9, 3.902814107980876*^9}, {
   3.902822208989378*^9, 3.902822209104067*^9}, {3.902822766366671*^9, 
   3.9028227670025787`*^9}, {3.90282403819901*^9, 3.902824038336097*^9}, {
   3.902824591891824*^9, 3.902824592300638*^9}, {3.9029782258097258`*^9, 
   3.902978283244401*^9}, {3.902979658176111*^9, 3.902979683124423*^9}, 
   3.902979842268693*^9, 3.9029798892147017`*^9, 3.902979932958976*^9, {
   3.902979965825199*^9, 3.902979983072179*^9}, {3.902980072111451*^9, 
   3.902980131114262*^9}, {3.902981121046537*^9, 3.902981126047785*^9}, {
   3.902981201453165*^9, 3.90298120534494*^9}, {3.902981862687681*^9, 
   3.9029818677386436`*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"89237a9e-a47e-4a2f-af88-6f9cc1173e9b"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"inputData", "=", "inputDataBaseline"}], ";"}], "*)"}]], "Input",
 CellChangeTimes->{{3.899448440132536*^9, 3.899448443677416*^9}, 
   3.9029837237777033`*^9, {3.902985467237567*^9, 
   3.902985468625277*^9}},ExpressionUUID->"ddb61612-9b75-47e9-99fb-\
e19d76b863ed"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "initialDistributionBaseline", ",", "allParmsBaseline", ",", 
     "averageBeta2000Baseline"}], "}"}], "=", 
   RowBox[{"findInitialDistributionHelper", "[", "inputDataBaseline", "]"}]}],
   ";"}]], "Input",
 CellChangeTimes->{{3.898829854274494*^9, 3.898829868276433*^9}, 
   3.898830023024802*^9, {3.899181477414831*^9, 3.899181493394899*^9}, {
   3.899181545601053*^9, 3.899181549399221*^9}, {3.9028137575402937`*^9, 
   3.902813771638392*^9}, 3.902983527832871*^9},
 CellLabel->"In[40]:=",ExpressionUUID->"3391aa10-d5df-4d52-bc91-6a2d06b9bfc0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"initpointsBaseline", " ", "-", " ", 
   RowBox[{"initial", " ", "guess", " ", "for", " ", "solution"}]}], 
  "*)"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.89694819077925*^9, 3.896948195724868*^9}, 
   3.8969496926954412`*^9, 3.899183632529427*^9, {3.902981431362453*^9, 
   3.902981437431835*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"469c6d3e-6719-40c1-acdf-a067dbc7e53a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"initpointsBaseline", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SubscriptBox["ax", 
       RowBox[{"-", "1"}]], "\[Rule]", "0.0515367090636632`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "0"], "\[Rule]", "0.05142049223576637`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "1"], "\[Rule]", "0.05390033722043359`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "2"], "\[Rule]", "0.056996716627197797`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "3"], "\[Rule]", "0.06010483397598251`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "4"], "\[Rule]", "0.0630474636320878`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "5"], "\[Rule]", "0.06578786571296263`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "6"], "\[Rule]", "0.06833317992838606`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "7"], "\[Rule]", "0.07070181801535466`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "8"], "\[Rule]", "0.07291299635211407`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "9"], "\[Rule]", "0.074983737797367`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "10"], "\[Rule]", "0.07692817243284637`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "11"], "\[Rule]", "0.07875726112363193`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "12"], "\[Rule]", "0.08047806669180498`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "13"], "\[Rule]", "0.08209172172965121`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "14"], "\[Rule]", "0.08358858177335746`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "15"], "\[Rule]", "0.08493749862290319`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "16"], "\[Rule]", "0.08606332681248481`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "17"], "\[Rule]", "0.08680359467237889`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "18"], "\[Rule]", "0.08684078128300296`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "19"], "\[Rule]", "0.08565892090604645`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "20"], "\[Rule]", "0.08274188418300378`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "21"], "\[Rule]", "0.07833041312518477`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "22"], "\[Rule]", "0.0741767442489639`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "23"], "\[Rule]", "0.07266028842406029`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "24"], "\[Rule]", "0.07474510452744326`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "25"], "\[Rule]", "0.07915857170240237`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "26"], "\[Rule]", "0.08374188340910697`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "27"], "\[Rule]", "0.08724769998111709`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "28"], "\[Rule]", "0.08952769636829032`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "29"], "\[Rule]", "0.09134999378498912`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "30"], "\[Rule]", "0.09239670608839176`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "31"], "\[Rule]", "0.09566189907421327`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "32"], "\[Rule]", "0.18611701186337912`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "33"], "\[Rule]", "0.24431729720960166`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "34"], "\[Rule]", "0.26858336762149587`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "35"], "\[Rule]", "0.2782167847087081`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "36"], "\[Rule]", "0.2824692409227543`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "37"], "\[Rule]", "0.2848234894031692`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "38"], "\[Rule]", "0.28649947022541256`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "39"], "\[Rule]", "0.2879154763800599`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "40"], "\[Rule]", "0.2892147285299846`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "41"], "\[Rule]", "0.2904469969318948`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "42"], "\[Rule]", "0.29163036302891676`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "43"], "\[Rule]", "0.2927721270111972`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "44"], "\[Rule]", "0.2938758780207405`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "45"], "\[Rule]", "0.2949438870893643`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "46"], "\[Rule]", "0.2959779198602719`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "47"], "\[Rule]", "0.29697951528437266`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "48"], "\[Rule]", "0.29795008362530795`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "49"], "\[Rule]", "0.29889094312156117`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "50"], "\[Rule]", "0.2998033356394804`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "51"], "\[Rule]", "0.30068843496624265`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "52"], "\[Rule]", "0.30154735237747643`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "53"], "\[Rule]", "0.3023811410672828`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "54"], "\[Rule]", "0.30319079999692305`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "55"], "\[Rule]", "0.3039772773679372`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "56"], "\[Rule]", "0.3047414738051982`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "57"], "\[Rule]", "0.3054842452931401`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "58"], "\[Rule]", "0.30620640589266596`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "59"], "\[Rule]", "0.306908730259645`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "60"], "\[Rule]", "0.3075919559825306`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "61"], "\[Rule]", "0.30825678575448673`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "62"], "\[Rule]", "0.3089038893937738`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "63"], "\[Rule]", "0.3095339057247941`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "64"], "\[Rule]", "0.31014744433101615`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "65"], "\[Rule]", "0.31074508718995725`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "66"], "\[Rule]", "0.3113273901994752`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "67"], "\[Rule]", "0.31189488460378456`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "68"], "\[Rule]", "0.31244807832687094`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "69"], "\[Rule]", "0.3129874572202985`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "70"], "\[Rule]", "0.31351348623180614`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "71"], "\[Rule]", "0.31402661050053615`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "72"], "\[Rule]", "0.31452725638425133`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "73"], "\[Rule]", "0.3150158324234429`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "74"], "\[Rule]", "0.31549273024683405`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "75"], "\[Rule]", "0.315958325422412`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "76"], "\[Rule]", "0.31641297825779013`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "77"], "\[Rule]", "0.3168570345533995`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "78"], "\[Rule]", "0.31729082631173183`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "79"], "\[Rule]", "0.3177146724056053`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "80"], "\[Rule]", "0.31812887920819627`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "81"], "\[Rule]", "0.3185337411873697`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "82"], "\[Rule]", "0.3189295414666491`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "83"], "\[Rule]", "0.3193165523549942`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "84"], "\[Rule]", "0.3196950358473916`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "85"], "\[Rule]", "0.3200652440981187`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "86"], "\[Rule]", "0.32042741986840423`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "87"], "\[Rule]", "0.3207817969500878`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "88"], "\[Rule]", "0.3211286005667631`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "89"], "\[Rule]", "0.3214680477537887`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "90"], "\[Rule]", "0.321800347718451`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "91"], "\[Rule]", "0.32212570218147607`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "92"], "\[Rule]", "0.3224443057010052`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "93"], "\[Rule]", "0.322756345980073`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "94"], "\[Rule]", "0.32306200415855735`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "95"], "\[Rule]", "0.32336145509050407`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "96"], "\[Rule]", "0.32365486760767376`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "97"], "\[Rule]", "0.3239424047700972`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "98"], "\[Rule]", "0.324224224104378`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "99"], "\[Rule]", "0.3245004778304338`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "100"], "\[Rule]", "0.324771313077321`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "101"], "\[Rule]", "0.3250368720887491`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "102"], "\[Rule]", "0.3252972924188508`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "103"], "\[Rule]", "0.3255527071187404`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "104"], "\[Rule]", "0.32580324491435975`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "105"], "\[Rule]", "0.32604903037607935`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "106"], "\[Rule]", "0.3262901840804937`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "107"], "\[Rule]", "0.3265268227648256`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "108"], "\[Rule]", "0.32675905947432726`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "109"], "\[Rule]", "0.32698700370304296`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "110"], "\[Rule]", "0.3272107615282771`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "111"], "\[Rule]", "0.3274304357390916`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "112"], "\[Rule]", "0.3276461259591372`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "113"], "\[Rule]", "0.32785792876410597`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "114"], "\[Rule]", "0.32806593779407545`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "115"], "\[Rule]", "0.32827024386099884`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "116"], "\[Rule]", "0.3284709350515842`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "117"], "\[Rule]", "0.3286680968257879`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "118"], "\[Rule]", "0.3288618121111379`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "119"], "\[Rule]", "0.32905216139308924`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "120"], "\[Rule]", "0.3292392228016045`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "121"], "\[Rule]", "0.32942307219413747`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "122"], "\[Rule]", "0.3296037832351956`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "123"], "\[Rule]", "0.3297814274726393`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "124"], "\[Rule]", "0.3299560744108741`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "125"], "\[Rule]", "0.3301277915810798`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "126"], "\[Rule]", "0.3302966446086143`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "127"], "\[Rule]", "0.3304626972777228`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "128"], "\[Rule]", "0.33062601159367594`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "129"], "\[Rule]", "0.33078664784245393`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "130"], "\[Rule]", "0.3309446646480871`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "131"], "\[Rule]", "0.3311001190277598`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "132"], "\[Rule]", "0.33125306644477714`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "133"], "\[Rule]", "0.33140356085948813`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "134"], "\[Rule]", "0.3315516547782582`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "135"], "\[Rule]", "0.3316973993005753`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "136"], "\[Rule]", "0.33184084416437015`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "137"], "\[Rule]", "0.3319820377896303`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "138"], "\[Rule]", "0.3321210273203808`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "139"], "\[Rule]", "0.33225785866510027`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "140"], "\[Rule]", "0.3323925765356414`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "141"], "\[Rule]", "0.33252522448471805`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "142"], "\[Rule]", "0.33265584494201855`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "143"], "\[Rule]", "0.33278447924900556`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "144"], "\[Rule]", "0.3329111676924543`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "145"], "\[Rule]", "0.3330359495367827`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "146"], "\[Rule]", "0.3331588630552245`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "147"], "\[Rule]", "0.33327994555989077`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "148"], "\[Rule]", "0.3333992334307657`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "149"], "\[Rule]", "0.33351676214368176`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "150"], "\[Rule]", "0.3336325662973118`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "151"], "\[Rule]", "0.33374667963922233`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "152"], "\[Rule]", "0.33385913509102005`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "153"], "\[Rule]", "0.3339699647726327`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "154"], "\[Rule]", "0.3340792000257544`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "155"], "\[Rule]", "0.33418687143649206`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "156"], "\[Rule]", "0.3342930088572394`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "157"], "\[Rule]", "0.33439764142781436`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "158"], "\[Rule]", "0.3345007975958833`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "159"], "\[Rule]", "0.334602505136702`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "160"], "\[Rule]", "0.3347027911721994`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "161"], "\[Rule]", "0.3348016821894291`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "162"], "\[Rule]", "0.3348992040584119`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "163"], "\[Rule]", "0.33499538204939283`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "164"], "\[Rule]", "0.3350902408495351`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "165"], "\[Rule]", "0.33518380457907176`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "166"], "\[Rule]", "0.3352760968069336`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "167"], "\[Rule]", "0.33536714056587635`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "168"], "\[Rule]", "0.3354569583671221`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "169"], "\[Rule]", "0.3355455722145351`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "170"], "\[Rule]", "0.3356330036183496`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "171"], "\[Rule]", "0.33571927360846865`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "172"], "\[Rule]", "0.33580440274735673`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "173"], "\[Rule]", "0.33588841114255874`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "174"], "\[Rule]", "0.3359713184589068`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "175"], "\[Rule]", "0.3360531439305499`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "176"], "\[Rule]", "0.33613390637312696`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "177"], "\[Rule]", "0.3362136241968966`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "178"], "\[Rule]", "0.33629231542288085`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "179"], "\[Rule]", "0.33636999770729087`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "180"], "\[Rule]", "0.33644668838770597`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "181"], "\[Rule]", "0.33652240458546995`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "182"], "\[Rule]", "0.3365971634523691`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "183"], "\[Rule]", "0.33667098278637764`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "184"], "\[Rule]", "0.3367438825895748`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "185"], "\[Rule]", "0.33681588902761544`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "186"], "\[Rule]", "0.3368870445025753`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "187"], "\[Rule]", "0.33695743326862043`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "188"], "\[Rule]", "0.3370272465165291`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "189"], "\[Rule]", "0.3370969475645344`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "190"], "\[Rule]", "0.337167690649584`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "191"], "\[Rule]", "0.3372423813735217`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "192"], "\[Rule]", "0.3373283583740107`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "193"], "\[Rule]", "0.33744416308396613`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "194"], "\[Rule]", "0.3376365769541506`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "195"], "\[Rule]", "0.3380231669781013`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "196"], "\[Rule]", "0.33889599416647687`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "197"], "\[Rule]", "0.3409532803904064`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "198"], "\[Rule]", "0.34563178777931525`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "199"], "\[Rule]", "0.3538090557002782`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "200"], "\[Rule]", "0.3454120042357886`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "0"], "\[Rule]", "0.0006181478876528716`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "1"], "\[Rule]", "0.0007176254565546885`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "2"], "\[Rule]", "0.0008553188457151106`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "3"], "\[Rule]", "0.001010751767201368`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "4"], "\[Rule]", "0.001175208356817199`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "5"], "\[Rule]", "0.0013446480712243955`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "6"], "\[Rule]", "0.0015170542841830086`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "7"], "\[Rule]", "0.0016913015948915983`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "8"], "\[Rule]", "0.001866665858310989`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "9"], "\[Rule]", "0.0020426103142373512`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "10"], "\[Rule]", "0.002218682421656546`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "11"], "\[Rule]", "0.0023944434233013102`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "12"], "\[Rule]", "0.0025693841820609497`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "13"], "\[Rule]", "0.0027427797704446`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "14"], "\[Rule]", "0.0029134072705494017`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "15"], "\[Rule]", "0.0030789928984737078`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "16"], "\[Rule]", "0.0032351735906501417`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "17"], "\[Rule]", "0.0033737498723833805`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "18"], "\[Rule]", "0.003480495584691233`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "19"], "\[Rule]", "0.0035349449755150814`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "20"], "\[Rule]", "0.003519552410157186`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "21"], "\[Rule]", "0.003448168915778845`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "22"], "\[Rule]", "0.003404019969034509`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "23"], "\[Rule]", "0.0035295164015226753`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "24"], "\[Rule]", "0.003921537674350774`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "25"], "\[Rule]", "0.004531537132298131`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "26"], "\[Rule]", "0.005203079529913662`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "27"], "\[Rule]", "0.005792120917945638`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "28"], "\[Rule]", "0.006245660033635138`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "29"], "\[Rule]", "0.006608381913618183`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "30"], "\[Rule]", "0.006875534084588922`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "31"], "\[Rule]", "0.007033770808100045`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "32"], "\[Rule]", "0.005720460880637241`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "33"], "\[Rule]", "0.013084069222520143`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "34"], "\[Rule]", "0.01751624605890469`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "35"], "\[Rule]", "0.019606051145215797`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "36"], "\[Rule]", "0.020658467481960312`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "37"], "\[Rule]", "0.02132051526847061`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "38"], "\[Rule]", "0.02184117662400587`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "39"], "\[Rule]", "0.022309256260394757`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "40"], "\[Rule]", "0.02275566777675902`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "41"], "\[Rule]", "0.02319110505905904`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "42"], "\[Rule]", "0.023619281845090646`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "43"], "\[Rule]", "0.024041512949326847`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "44"], "\[Rule]", "0.02445829069957831`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "45"], "\[Rule]", "0.02486982613144184`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "46"], "\[Rule]", "0.025276234494552227`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "47"], "\[Rule]", "0.025677598709978478`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "48"], "\[Rule]", "0.026073990986667808`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "49"], "\[Rule]", "0.026465480109665707`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "50"], "\[Rule]", "0.02685213383160831`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "51"], "\[Rule]", "0.027234019598479278`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "52"], "\[Rule]", "0.02761120471535497`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "53"], "\[Rule]", "0.027983756329768537`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "54"], "\[Rule]", "0.02835174136104197`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "55"], "\[Rule]", "0.02871522641867458`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "56"], "\[Rule]", "0.029074277723777554`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "57"], "\[Rule]", "0.029428961037662862`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "58"], "\[Rule]", "0.02977934159838315`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "59"], "\[Rule]", "0.030125484064947295`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "60"], "\[Rule]", "0.03046745246862514`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "61"], "\[Rule]", "0.03080531017069682`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "62"], "\[Rule]", "0.03113911982602645`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "63"], "\[Rule]", "0.03146894335188726`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "64"], "\[Rule]", "0.03179484190151712`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "65"], "\[Rule]", "0.03211687584193186`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "66"], "\[Rule]", "0.03243510473556964`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "67"], "\[Rule]", "0.03274958732538062`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "68"], "\[Rule]", "0.033060381523012446`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "69"], "\[Rule]", "0.03336754439977654`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "70"], "\[Rule]", "0.03367113218010915`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "71"], "\[Rule]", "0.03397120023726923`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "72"], "\[Rule]", "0.03426780309103878`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "73"], "\[Rule]", "0.03456099440721423`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "74"], "\[Rule]", "0.03485082699869676`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "75"], "\[Rule]", "0.03513735282800791`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "76"], "\[Rule]", "0.03542062301107306`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "77"], "\[Rule]", "0.03570068782213`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "78"], "\[Rule]", "0.035977596699633636`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "79"], "\[Rule]", "0.0362513982530395`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "80"], "\[Rule]", "0.03652214027035993`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "81"], "\[Rule]", "0.03678986972639729`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "82"], "\[Rule]", "0.03705463279156656`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "83"], "\[Rule]", "0.037316474841229116`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "84"], "\[Rule]", "0.03757544046546582`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "85"], "\[Rule]", "0.03783157347922532`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "86"], "\[Rule]", "0.0380849169327891`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "87"], "\[Rule]", "0.038335513122500206`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "88"], "\[Rule]", "0.03858340360170858`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "89"], "\[Rule]", "0.03882862919188928`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "90"], "\[Rule]", "0.03907122999389553`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "91"], "\[Rule]", "0.039311245399310996`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "92"], "\[Rule]", "0.03954871410187025`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "93"], "\[Rule]", "0.039783674108918844`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "94"], "\[Rule]", "0.04001616275288798`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "95"], "\[Rule]", "0.04024621670276044`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "96"], "\[Rule]", "0.040473871975508044`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "97"], "\[Rule]", "0.04069916394748191`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "98"], "\[Rule]", "0.04092212736573985`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "99"], "\[Rule]", "0.04114279635929587`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "100"], "\[Rule]", "0.04136120445027968`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "101"], "\[Rule]", "0.0415773845649945`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "102"], "\[Rule]", "0.04179136904486342`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "103"], "\[Rule]", "0.04200318965725572`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "104"], "\[Rule]", "0.04221287760618561`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "105"], "\[Rule]", "0.042420463542876596`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "106"], "\[Rule]", "0.042625977576186365`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "107"], "\[Rule]", "0.042829449282887046`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "108"], "\[Rule]", "0.043030907717797`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "109"], "\[Rule]", "0.04323038142376089`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "110"], "\[Rule]", "0.04342789844147529`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "111"], "\[Rule]", "0.04362348631915775`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "112"], "\[Rule]", "0.043817172122057754`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "113"], "\[Rule]", "0.044008982441808384`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "114"], "\[Rule]", "0.044198943405618044`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "115"], "\[Rule]", "0.0443870806853019`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "116"], "\[Rule]", "0.04457341950615293`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "117"], "\[Rule]", "0.04475798465565303`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "118"], "\[Rule]", "0.04494080049202469`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "119"], "\[Rule]", "0.04512189095262408`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "120"], "\[Rule]", "0.045301279562176326`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "121"], "\[Rule]", "0.045478989440854836`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "122"], "\[Rule]", "0.04565504331220527`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "123"], "\[Rule]", "0.045829463510916296`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "124"], "\[Rule]", "0.046002271990438465`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "125"], "\[Rule]", "0.04617349033045328`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "126"], "\[Rule]", "0.046343139744194004`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "127"], "\[Rule]", "0.046511241085620506`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "128"], "\[Rule]", "0.04667781485645001`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "129"], "\[Rule]", "0.04684288121304585`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "130"], "\[Rule]", "0.04700645997316659`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "131"], "\[Rule]", "0.04716857062257736`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "132"], "\[Rule]", "0.0473292323215261`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "133"], "\[Rule]", "0.04748846391108651`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "134"], "\[Rule]", "0.047646283919370404`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "135"], "\[Rule]", "0.047802710567611414`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "136"], "\[Rule]", "0.04795776177612267`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "137"], "\[Rule]", "0.04811145517013048`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "138"], "\[Rule]", "0.04826380808548651`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "139"], "\[Rule]", "0.048414837574260655`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "140"], "\[Rule]", "0.04856456041021699`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "141"], "\[Rule]", "0.04871299309417479`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "142"], "\[Rule]", "0.04886015185925756`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "143"], "\[Rule]", "0.049006052676031225`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "144"], "\[Rule]", "0.0491507112575348`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "145"], "\[Rule]", "0.04929414306420512`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "146"], "\[Rule]", "0.04943636330869776`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "147"], "\[Rule]", "0.049577386960606686`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "148"], "\[Rule]", "0.04971722875108434`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "149"], "\[Rule]", "0.049855903177364436`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "150"], "\[Rule]", "0.04999342450718959`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "151"], "\[Rule]", "0.050129806783145645`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "152"], "\[Rule]", "0.0502650638269046`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "153"], "\[Rule]", "0.05039920924337848`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "154"], "\[Rule]", "0.050532256424785614`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "155"], "\[Rule]", "0.05066421855463157`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "156"], "\[Rule]", "0.050795108611606306`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "157"], "\[Rule]", "0.05092493937339954`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "158"], "\[Rule]", "0.0510537234204362`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "159"], "\[Rule]", "0.051181473139533404`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "160"], "\[Rule]", "0.0513082007274809`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "161"], "\[Rule]", "0.0514339181945468`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "162"], "\[Rule]", "0.05155863736790987`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "163"], "\[Rule]", "0.051682369895020265`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "164"], "\[Rule]", "0.051805127246890306`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "165"], "\[Rule]", "0.051926920721316626`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "166"], "\[Rule]", "0.052047761446035554`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "167"], "\[Rule]", "0.05216766038181281`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "168"], "\[Rule]", "0.05228662832546936`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "169"], "\[Rule]", "0.052404675912844575`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "170"], "\[Rule]", "0.052521813621698284`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "171"], "\[Rule]", "0.052638051774553024`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "172"], "\[Rule]", "0.05275340054147804`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "173"], "\[Rule]", "0.05286786994281669`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "174"], "\[Rule]", "0.0529814698518591`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "175"], "\[Rule]", "0.053094209997464295`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "176"], "\[Rule]", "0.053206099966637985`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "177"], "\[Rule]", "0.05331714920708304`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "178"], "\[Rule]", "0.053427367029762036`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "179"], "\[Rule]", "0.053536762611573016`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "180"], "\[Rule]", "0.053645344998394226`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "181"], "\[Rule]", "0.053753123109152756`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "182"], "\[Rule]", "0.05386010574258914`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "183"], "\[Rule]", "0.05396630159098822`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "184"], "\[Rule]", "0.054071719271768605`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "185"], "\[Rule]", "0.05417636740468547`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "186"], "\[Rule]", "0.054280254805282`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "187"], "\[Rule]", "0.054383390974145705`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "188"], "\[Rule]", "0.05448578733786383`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "189"], "\[Rule]", "0.05458746039786555`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "190"], "\[Rule]", "0.05468843971618365`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "191"], "\[Rule]", "0.05478878815211154`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "192"], "\[Rule]", "0.054888653114515885`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "193"], "\[Rule]", "0.054988396443557686`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "194"], "\[Rule]", "0.05508892511218951`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "195"], "\[Rule]", "0.05519254901022545`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "196"], "\[Rule]", "0.05530534687668754`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "197"], "\[Rule]", "0.05544489024767529`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "198"], "\[Rule]", "0.05567491653997672`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "199"], "\[Rule]", "0.0563232712596274`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "200"], "\[Rule]", "0.05963335303912826`"}]}], 
    "}"}]}], ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.896947278279183*^9, 3.896947304012991*^9}, 
   3.896947583548276*^9, {3.896948182213542*^9, 3.896948195725048*^9}, {
   3.896949611395438*^9, 3.89694961244205*^9}, 3.896949692695689*^9, 
   3.8991836353463793`*^9},
 CellLabel->"In[42]:=",ExpressionUUID->"312377ef-d324-4dca-9593-03da9c34f9bc"]
}, Closed]],

Cell[BoxData[
 RowBox[{
  RowBox[{"ansBaseline", "=", 
   RowBox[{"solveModelHelper", "[", 
    RowBox[{
    "inputDataBaseline", ",", "initpointsBaseline", ",", 
     "initialDistributionBaseline", ",", "allParmsBaseline", ",", "1"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.896949733085244*^9, 3.8969497355046062`*^9}, {
   3.896949782155897*^9, 3.896949820252098*^9}, {3.896949981751202*^9, 
   3.896949983583651*^9}, {3.896950042571059*^9, 3.896950043304647*^9}, {
   3.896950110264027*^9, 3.896950113648921*^9}, {3.8988292804294558`*^9, 
   3.8988293106163073`*^9}, {3.898830319773121*^9, 3.898830329793866*^9}, {
   3.8988347069373837`*^9, 3.898834714275692*^9}, {3.899181855086978*^9, 
   3.899181866936906*^9}, {3.899181909109653*^9, 3.899181922023733*^9}, 
   3.8991836417126827`*^9, {3.902812150657654*^9, 3.902812150699888*^9}, {
   3.902813765957446*^9, 3.9028137734816647`*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"36682ada-3a6a-4a28-9f38-11a3238e820b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ValuesToExportBaseline", "=", 
   RowBox[{"computeValuesToExport", "[", 
    RowBox[{"ansBaseline", ",", "allParmsBaseline"}], "]"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.899460033461452*^9, 3.8994600539072733`*^9}, {
  3.89946014881603*^9, 3.89946016373444*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"2aa0845a-0b64-4412-9454-50cfae194af2"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{"--", 
     RowBox[{"-", "Homogenous"}]}], " ", "Agent", " ", "version"}], ",", " ", 
   
   RowBox[{"Baseline", " ", 
    RowBox[{
     RowBox[{"Model", "--"}], "--"}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.862884516086323*^9, 3.86288453242387*^9}, 
   3.862885742236683*^9, 3.862886069569072*^9, {3.899786369428084*^9, 
   3.899786395520246*^9}, {3.899789511201269*^9, 3.899789515697215*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"2a0d2d47-ca37-4a06-b520-2ff528cfc4df"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "testHomoBaseline", " ", "function", " ", "to", " ", "recalibrate", " ", 
    "new", " ", "productivity", " ", "growth", " ", 
    RowBox[{"rates", " ", "--"}]}], "-", " ", "FULL"}], "*)"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.896937561517844*^9, 3.89693761672165*^9}, 
   3.8969440204639263`*^9, {3.8971002851368713`*^9, 3.89710028552398*^9}, {
   3.8997860113524103`*^9, 3.899786013381721*^9}, 3.899788787916555*^9, 
   3.8997889133242292`*^9},
 CellLabel->"In[46]:=",ExpressionUUID->"499591c0-7467-436a-8cb6-105bed8594ea"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"counter", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"testHomoBaseline", "[", 
     RowBox[{"aa_", ",", "bb_", ",", "cc_"}], "]"}], ":=", 
    RowBox[{
     RowBox[{"testHomoBaseline", "[", 
      RowBox[{"aa", ",", "bb", ",", "cc"}], "]"}], "=", "\[IndentingNewLine]", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "inputData", ",", "allParms", ",", "allParmsOriginal", ",", 
         "distt2000", ",", "averageBeta2000", ",", "initialDistributionTilde",
          ",", "pp", ",", "temp", ",", "initialDistribution", ",", "points", 
         ",", " ", "points2", ",", "ans5", ",", "grrates", ",", "ansss1"}], 
        "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"inputData", "=", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"lrintr", "\[Rule]", "0.064"}], ",", 
            RowBox[{"matchlrirBaselinyears", "\[Rule]", "100"}], ",", 
            RowBox[{"stdevbeta", "\[Rule]", "0.0053"}], ",", 
            RowBox[{"gNCutoffs", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1700", ",", "1.030615194"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"1875", ",", "1.118744119"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"2000", ",", "1.356358323"}], "}"}]}], "}"}]}], ",", 
            RowBox[{"gNyearsFuture", "\[Rule]", "100"}], ",", 
            RowBox[{"gNss", "\[Rule]", 
             SuperscriptBox["0.99", "25"]}], ",", 
            RowBox[{"gDCutoffs", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1775", ",", "aa"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"1875", ",", 
                 RowBox[{"1.", "bb"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"2000", ",", "cc"}], "}"}]}], "}"}]}], ",", 
            RowBox[{"gDyearsFuture", "\[Rule]", "100"}], ",", 
            RowBox[{"gDss", "\[Rule]", 
             SuperscriptBox["1.005", "25"]}], ",", 
            RowBox[{"\[Nu]", "\[Rule]", "0.33"}], ",", 
            RowBox[{"\[Delta]", "\[Rule]", 
             RowBox[{"1", "-", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "-", "0.1"}], ")"}], "25"]}]}], ",", 
            RowBox[{"Pie", "\[Rule]", 
             RowBox[{"smoothedpie", "[", 
              RowBox[{"[", 
               RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ",", 
            RowBox[{"Piess", "\[Rule]", "0.666667"}], ",", 
            RowBox[{"lrconssh", "\[Rule]", "0.75"}], ",", 
            RowBox[{"nTypes", "\[Rule]", "10000"}], ",", 
            RowBox[{"precision", "\[Rule]", "100"}], ",", 
            RowBox[{"inityear", "\[Rule]", "1300"}], ",", 
            RowBox[{"currentyear", "\[Rule]", "2000"}], ",", " ", 
            RowBox[{"time", "\[Rule]", "200"}], ",", 
            RowBox[{"\[Omega]", "\[Rule]", "1"}], ",", 
            RowBox[{"Pie28", "\[Rule]", 
             RowBox[{"smoothedpie", "[", 
              RowBox[{"[", 
               RowBox[{"30", ",", "2"}], "]"}], "]"}]}], ",", 
            RowBox[{"ave\[Beta]", "->", "averageBeta2000Baseline"}]}], 
           "}"}]}], ";"}], "*)"}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"inputData", "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"lrintr", "\[Rule]", "lrintrparm"}], ",", 
           RowBox[{
           "matchlrirBaselinyears", "\[Rule]", "matchlrirBaselinyearsparm"}], 
           ",", 
           RowBox[{"stdevbeta", "\[Rule]", "stdevbetaparm"}], ",", 
           RowBox[{"gNCutoffs", "\[Rule]", "gNCutoffsparms"}], ",", 
           RowBox[{"gNyearsFuture", "\[Rule]", "gNyearsFutureparm"}], ",", 
           RowBox[{"gNss", "\[Rule]", "gNssparm"}], ",", 
           RowBox[{"gDCutoffs", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1775", ",", "aa"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"1875", ",", 
                RowBox[{"1.", "bb"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"2000", ",", "cc"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"gDyearsFuture", "\[Rule]", "gDyearsFutureparm"}], ",", 
           RowBox[{"gDss", "\[Rule]", "gDssparm"}], ",", 
           RowBox[{"\[Nu]", "\[Rule]", "\[Nu]parm"}], ",", 
           RowBox[{"\[Delta]", "\[Rule]", "\[Delta]parm"}], ",", 
           RowBox[{"Pie", "\[Rule]", 
            RowBox[{"smoothedpie", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ",", 
           RowBox[{"Piess", "\[Rule]", "Piessparm"}], ",", 
           RowBox[{"lrconssh", "\[Rule]", "lrconsshparm"}], ",", 
           RowBox[{"nTypes", "\[Rule]", "1"}], ",", 
           RowBox[{"precision", "\[Rule]", "precisionparm"}], ",", 
           RowBox[{"inityear", "\[Rule]", "inityearparm"}], ",", 
           RowBox[{"currentyear", "\[Rule]", "currentyearparm"}], ",", " ", 
           RowBox[{"time", "\[Rule]", "timeparm"}], ",", 
           RowBox[{"\[Omega]", "\[Rule]", "\[Omega]parm"}], ",", 
           RowBox[{"Pie28", "\[Rule]", 
            RowBox[{"smoothedpie", "[", 
             RowBox[{"[", 
              RowBox[{"30", ",", "2"}], "]"}], "]"}]}], ",", 
           RowBox[{"ave\[Beta]", "->", "averageBeta2000Baseline"}], ",", 
           RowBox[{"percentiles", "->", "percentilesparm"}], ",", 
           RowBox[{"Nm1", "->", "Nm1parm"}]}], "}"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"allParms", ",", "points"}], "}"}], "=", 
         RowBox[{"calibrationHomo", "[", "inputData", "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"counter", "=", 
         RowBox[{"counter", "+", "1"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"points2", "=", 
         RowBox[{"Join", "[", 
          RowBox[{"points", ",", 
           RowBox[{"{", 
            RowBox[{"initpoints", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                SubscriptBox["ax", 
                 RowBox[{"-", "1"}]], "\[Rule]", "0.13602388059137732`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "0"], "\[Rule]", "0.13602388021143924`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "1"], "\[Rule]", "0.1360238740321128`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "2"], "\[Rule]", "0.13602385960060376`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "3"], "\[Rule]", "0.13602382943332086`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "4"], "\[Rule]", "0.13602376726938126`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "5"], "\[Rule]", "0.13602363916297214`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "6"], "\[Rule]", "0.13602337448579582`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "7"], "\[Rule]", "0.13602282591651266`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "8"], "\[Rule]", "0.1360216850556979`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "9"], "\[Rule]", "0.13601930380972646`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "10"], "\[Rule]", "0.13601431487497534`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "11"], "\[Rule]", "0.13600382256600907`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "12"], "\[Rule]", "0.1359816731658841`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "13"], "\[Rule]", "0.13593475550940104`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "14"], "\[Rule]", "0.13583511664082168`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "15"], "\[Rule]", "0.13562336748976916`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "16"], "\[Rule]", "0.1351748803461428`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "17"], "\[Rule]", "0.13423633472649832`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "18"], "\[Rule]", "0.13233054445881226`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "19"], "\[Rule]", "0.12870929369825185`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "20"], "\[Rule]", "0.12268284452195889`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "21"], "\[Rule]", "0.11476558953232417`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "22"], "\[Rule]", "0.10772284562818811`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "23"], "\[Rule]", "0.10513730843465297`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "24"], "\[Rule]", "0.10836392214484598`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "25"], "\[Rule]", "0.11529312919228722`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "26"], "\[Rule]", "0.12236567121073497`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "27"], "\[Rule]", "0.12748763267358268`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "28"], "\[Rule]", "0.13046898869086565`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "29"], "\[Rule]", "0.1325658744444363`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "30"], "\[Rule]", "0.1333099972833224`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "31"], "\[Rule]", "0.13718684451571636`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "32"], "\[Rule]", "0.29087577720207786`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "33"], "\[Rule]", "0.39132262693372066`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "34"], "\[Rule]", "0.4321066090645135`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "35"], "\[Rule]", "0.44669074819599713`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "36"], "\[Rule]", "0.4516863614959791`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "37"], "\[Rule]", "0.45337296872534216`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "38"], "\[Rule]", "0.45393963974803553`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "39"], "\[Rule]", "0.45412972185657263`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "40"], "\[Rule]", "0.4541934475473034`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "41"], "\[Rule]", "0.45421480790154806`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "42"], "\[Rule]", "0.4542219672868232`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "43"], "\[Rule]", "0.4542243668605425`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "44"], "\[Rule]", "0.45422517110757965`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "45"], "\[Rule]", "0.4542254406603751`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "46"], "\[Rule]", "0.4542255310040756`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "47"], "\[Rule]", "0.45422556128379143`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "48"], "\[Rule]", "0.4542255714323809`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "49"], "\[Rule]", "0.45422557483379533`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "50"], "\[Rule]", "0.4542255759738178`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "51"], "\[Rule]", "0.45422557635590927`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "52"], "\[Rule]", "0.4542255764839714`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "53"], "\[Rule]", "0.454225576526893`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "54"], "\[Rule]", "0.45422557654127854`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "55"], "\[Rule]", "0.45422557654610013`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "56"], "\[Rule]", "0.4542255765477161`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "57"], "\[Rule]", "0.45422557654825774`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "58"], "\[Rule]", "0.4542255765484393`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "59"], "\[Rule]", "0.45422557654850015`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "60"], "\[Rule]", "0.4542255765485205`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "61"], "\[Rule]", "0.45422557654852735`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "62"], "\[Rule]", "0.4542255765485297`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "63"], "\[Rule]", "0.4542255765485304`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "64"], "\[Rule]", "0.4542255765485305`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "65"], "\[Rule]", "0.45422557654853074`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "66"], "\[Rule]", "0.4542255765485307`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "67"], "\[Rule]", "0.45422557654853074`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "68"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "69"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "70"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "71"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "72"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "73"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "74"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "75"], "\[Rule]", "0.45422557654853074`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "76"], "\[Rule]", "0.45422557654853074`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "77"], "\[Rule]", "0.45422557654853074`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "78"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "79"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "80"], "\[Rule]", "0.45422557654853074`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "81"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "82"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "83"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "84"], "\[Rule]", "0.4542255765485307`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "85"], "\[Rule]", "0.4542255765485307`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "86"], "\[Rule]", "0.45422557654853074`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "87"], "\[Rule]", "0.45422557654853074`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "88"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "89"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "90"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "91"], "\[Rule]", "0.4542255765485307`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "92"], "\[Rule]", "0.4542255765485307`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "93"], "\[Rule]", "0.45422557654853074`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "94"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "95"], "\[Rule]", "0.45422557654853074`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "96"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "97"], "\[Rule]", "0.45422557654853074`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "98"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "99"], "\[Rule]", "0.45422557654853074`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "100"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "101"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "102"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "103"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "104"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "105"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "106"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "107"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "108"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "109"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "110"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "111"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "112"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "113"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "114"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "115"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "116"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "117"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "118"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "119"], "\[Rule]", "0.4542255765485307`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "120"], "\[Rule]", "0.4542255765485307`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "121"], "\[Rule]", "0.4542255765485307`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "122"], "\[Rule]", "0.4542255765485307`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "123"], "\[Rule]", "0.4542255765485307`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "124"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "125"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "126"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "127"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "128"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "129"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "130"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "131"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "132"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "133"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "134"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "135"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "136"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "137"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "138"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "139"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "140"], "\[Rule]", "0.4542255765485307`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "141"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "142"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "143"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "144"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "145"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "146"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "147"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "148"], "\[Rule]", "0.4542255765485307`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "149"], "\[Rule]", "0.4542255765485307`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "150"], "\[Rule]", "0.4542255765485307`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "151"], "\[Rule]", "0.4542255765485307`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "152"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "153"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "154"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "155"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "156"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "157"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "158"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "159"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "160"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "161"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "162"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "163"], "\[Rule]", "0.4542255765485307`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "164"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "165"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "166"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "167"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "168"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "169"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "170"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "171"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "172"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "173"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "174"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "175"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "176"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "177"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "178"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "179"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "180"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "181"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "182"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "183"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "184"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "185"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "186"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "187"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "188"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "189"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "190"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "191"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "192"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "193"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "194"], "\[Rule]", "0.4542255765485307`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "195"], "\[Rule]", "0.4542255765485307`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "196"], "\[Rule]", "0.4542255765485307`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "197"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "198"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "199"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "200"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "0"], "\[Rule]", 
                "0.0052061195448059394`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "1"], "\[Rule]", 
                "0.005206118932442894`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "2"], "\[Rule]", 
                "0.005206117499640535`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "3"], "\[Rule]", 
                "0.0052061145556836445`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "4"], "\[Rule]", 
                "0.005206108623217026`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "5"], "\[Rule]", 
                "0.005206096706418153`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "6"], "\[Rule]", 
                "0.005206072782005043`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "7"], "\[Rule]", 
                "0.005206024758718052`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "8"], "\[Rule]", 
                "0.005205928376753629`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "9"], "\[Rule]", 
                "0.005205734985413293`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "10"], "\[Rule]", 
                "0.0052053470928087224`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "11"], "\[Rule]", 
                "0.005204569571558156`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "12"], "\[Rule]", 
                "0.005203012691278964`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "13"], "\[Rule]", 
                "0.005199900894535254`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "14"], "\[Rule]", 
                "0.005193701154220016`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "15"], "\[Rule]", 
                "0.005181421119936853`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "16"], "\[Rule]", 
                "0.005157359907213556`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "17"], "\[Rule]", 
                "0.005111162738515472`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "18"], "\[Rule]", 
                "0.005025758559075939`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "19"], "\[Rule]", 
                "0.004878387567311249`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "20"], "\[Rule]", 
                "0.0046531117241787445`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "21"], "\[Rule]", 
                "0.004373964331261272`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "22"], "\[Rule]", 
                "0.004143201079141286`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "23"], "\[Rule]", 
                "0.004117705393288917`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "24"], "\[Rule]", 
                "0.0043860956389401564`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "25"], "\[Rule]", 
                "0.004880487021091146`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "26"], "\[Rule]", 
                "0.005433619095655059`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "27"], "\[Rule]", 
                "0.005891271162506195`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "28"], "\[Rule]", 
                "0.006193439455832249`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "29"], "\[Rule]", 
                "0.006381919420258462`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "30"], "\[Rule]", 
                "0.00647760259896788`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "31"], "\[Rule]", 
                "0.006443209789884909`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "32"], "\[Rule]", 
                "0.004461631138688374`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "33"], "\[Rule]", 
                "0.010914956759517754`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "34"], "\[Rule]", 
                "0.014708287497358924`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "35"], "\[Rule]", 
                "0.016251334407969407`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "36"], "\[Rule]", 
                "0.016803503060338693`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "37"], "\[Rule]", 
                "0.016992687176190107`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "38"], "\[Rule]", 
                "0.01705656431035336`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "39"], "\[Rule]", 
                "0.017078026521178683`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "40"], "\[Rule]", 
                "0.017085225795384778`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "41"], "\[Rule]", 
                "0.017087639384701977`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "42"], "\[Rule]", 
                "0.017088448401848824`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "43"], "\[Rule]", 
                "0.01708871956155918`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "44"], "\[Rule]", 
                "0.017088810444751763`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "45"], "\[Rule]", 
                "0.017088840905387603`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "46"], "\[Rule]", 
                "0.017088851114625887`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "47"], "\[Rule]", 
                "0.017088854536368818`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "48"], "\[Rule]", 
                "0.017088855683204774`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "49"], "\[Rule]", 
                "0.017088856067579816`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "50"], "\[Rule]", 
                "0.01708885619640746`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "51"], "\[Rule]", 
                "0.017088856239585504`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "52"], "\[Rule]", 
                "0.017088856254057108`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "53"], "\[Rule]", 
                "0.017088856258907426`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "54"], "\[Rule]", 
                "0.01708885626053307`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "55"], "\[Rule]", 
                "0.017088856261077923`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "56"], "\[Rule]", 
                "0.017088856261260534`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "57"], "\[Rule]", 
                "0.01708885626132174`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "58"], "\[Rule]", 
                "0.017088856261342256`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "59"], "\[Rule]", 
                "0.017088856261349133`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "60"], "\[Rule]", 
                "0.01708885626135144`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "61"], "\[Rule]", 
                "0.01708885626135221`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "62"], "\[Rule]", 
                "0.017088856261352467`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "63"], "\[Rule]", 
                "0.017088856261352554`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "64"], "\[Rule]", 
                "0.017088856261352578`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "65"], "\[Rule]", 
                "0.0170888562613526`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "66"], "\[Rule]", 
                "0.017088856261352592`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "67"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "68"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "69"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "70"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "71"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "72"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "73"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "74"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "75"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "76"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "77"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "78"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "79"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "80"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "81"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "82"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "83"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "84"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "85"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "86"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "87"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "88"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "89"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "90"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "91"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "92"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "93"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "94"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "95"], "\[Rule]", 
                "0.017088856261352592`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "96"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "97"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "98"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "99"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "100"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "101"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "102"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "103"], "\[Rule]", 
                "0.0170888562613526`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "104"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "105"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "106"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "107"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "108"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "109"], "\[Rule]", 
                "0.017088856261352592`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "110"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "111"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "112"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "113"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "114"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "115"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "116"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "117"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "118"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "119"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "120"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "121"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "122"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "123"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "124"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "125"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "126"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "127"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "128"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "129"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "130"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "131"], "\[Rule]", 
                "0.0170888562613526`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "132"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "133"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "134"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "135"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "136"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "137"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "138"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "139"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "140"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "141"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "142"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "143"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "144"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "145"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "146"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "147"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "148"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "149"], "\[Rule]", 
                "0.0170888562613526`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "150"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "151"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "152"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "153"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "154"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "155"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "156"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "157"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "158"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "159"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "160"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "161"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "162"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "163"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "164"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "165"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "166"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "167"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "168"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "169"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "170"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "171"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "172"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "173"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "174"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "175"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "176"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "177"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "178"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "179"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "180"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "181"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "182"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "183"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "184"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "185"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "186"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "187"], "\[Rule]", 
                "0.0170888562613526`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "188"], "\[Rule]", 
                "0.0170888562613526`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "189"], "\[Rule]", 
                "0.0170888562613526`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "190"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "191"], "\[Rule]", 
                "0.0170888562613526`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "192"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "193"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "194"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "195"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "196"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "197"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "198"], "\[Rule]", 
                "0.0170888562613526`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "199"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "200"], "\[Rule]", 
                "0.017088856261352606`"}]}], "}"}]}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"ans5", "=", 
         RowBox[{"SolveModel", "[", "points2", "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"grrates", "=", 
         RowBox[{"{", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{
               RowBox[{"ans5", "[", 
                RowBox[{"[", 
                 RowBox[{"7", ",", "All", ",", "2"}], "]"}], "]"}], "[", 
               RowBox[{"[", "21", "]"}], "]"}], 
              RowBox[{
               RowBox[{"ans5", "[", 
                RowBox[{"[", 
                 RowBox[{"7", ",", "All", ",", "2"}], "]"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]], ")"}], 
            FractionBox["25", 
             RowBox[{"1775", "-", "1275"}]]], ",", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{
               RowBox[{"ans5", "[", 
                RowBox[{"[", 
                 RowBox[{"7", ",", "All", ",", "2"}], "]"}], "]"}], "[", 
               RowBox[{"[", "25", "]"}], "]"}], 
              RowBox[{
               RowBox[{"ans5", "[", 
                RowBox[{"[", 
                 RowBox[{"7", ",", "All", ",", "2"}], "]"}], "]"}], "[", 
               RowBox[{"[", "21", "]"}], "]"}]], ")"}], 
            FractionBox["25", 
             RowBox[{"1875", "-", "1775"}]]], ",", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{
               RowBox[{"ans5", "[", 
                RowBox[{"[", 
                 RowBox[{"7", ",", "All", ",", "2"}], "]"}], "]"}], "[", 
               RowBox[{"[", "30", "]"}], "]"}], 
              RowBox[{
               RowBox[{"ans5", "[", 
                RowBox[{"[", 
                 RowBox[{"7", ",", "All", ",", "2"}], "]"}], "]"}], "[", 
               RowBox[{"[", "25", "]"}], "]"}]], ")"}], 
            FractionBox["25", 
             RowBox[{"2000", "-", "1875"}]]]}], "}"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"Remove", "[", 
         RowBox[{
         "inputData", ",", "allParms", ",", "allParmsOriginal", ",", 
          "distt2000", ",", "averageBeta2000", ",", 
          "initialDistributionTilde", ",", "pp", ",", "temp", ",", 
          "initialDistribution", ",", "points", ",", " ", "points2", ",", 
          "ans5"}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        
        RowBox[{"Return", "[", "grrates", "]"}], ";"}]}], 
      "\[IndentingNewLine]", "]"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.8635177655655537`*^9, {3.8637735974806013`*^9, 3.8637735976829696`*^9}, 
   3.865070714203122*^9, {3.865395309281442*^9, 3.8653953107423983`*^9}, {
   3.865395462021286*^9, 3.865395462131199*^9}, {3.8656870658341837`*^9, 
   3.8656870703479414`*^9}, 3.8663664802955713`*^9, {3.8944301612940893`*^9, 
   3.8944301785293417`*^9}, {3.894430429390369*^9, 3.894430504315989*^9}, {
   3.8944308064806347`*^9, 3.894430812794558*^9}, 3.8944310584922333`*^9, {
   3.8944311167966413`*^9, 3.894431138939095*^9}, {3.89443145160601*^9, 
   3.89443149328722*^9}, {3.8944323614635143`*^9, 3.894432361848316*^9}, {
   3.8944324318921213`*^9, 3.89443245408702*^9}, {3.894432723227734*^9, 
   3.894432753127657*^9}, {3.894432986196177*^9, 3.8944329971599216`*^9}, {
   3.894433210133746*^9, 3.894433221141823*^9}, {3.894433493868105*^9, 
   3.894433505262285*^9}, {3.894433723820862*^9, 3.894433743604007*^9}, {
   3.894433961318585*^9, 3.894433982576827*^9}, {3.894434214450403*^9, 
   3.894434234009416*^9}, {3.89443449397114*^9, 3.894434501244528*^9}, {
   3.8944347286086063`*^9, 3.894434743316289*^9}, {3.894434968045705*^9, 
   3.894434985060224*^9}, {3.894435181181389*^9, 3.894435193681978*^9}, {
   3.894435392759449*^9, 3.894435402814197*^9}, {3.894435744155819*^9, 
   3.894435757871173*^9}, {3.8944359616177464`*^9, 3.89443596762703*^9}, {
   3.894436219767043*^9, 3.8944362260974693`*^9}, 3.8949666304579353`*^9, {
   3.894967251945449*^9, 3.894967252225835*^9}, {3.8949673125995483`*^9, 
   3.894967433281789*^9}, {3.894967648786211*^9, 3.894967658145582*^9}, {
   3.894980206447342*^9, 3.894980216160246*^9}, 3.894980616679845*^9, {
   3.896151193436819*^9, 3.8961512089905*^9}, 3.8961524642683783`*^9, 
   3.896152756502841*^9, {3.896167539394092*^9, 3.8961675436359158`*^9}, {
   3.8961677812828007`*^9, 3.8961677817596493`*^9}, {3.8961685618901997`*^9, 
   3.896168625625434*^9}, 3.8961765245842123`*^9, 3.89617712690278*^9, 
   3.896177164750903*^9, {3.896189240375902*^9, 3.896189256836794*^9}, {
   3.896237783818182*^9, 3.896237784030299*^9}, {3.896246715405712*^9, 
   3.8962467207888823`*^9}, 3.896246862690405*^9, {3.896246949357946*^9, 
   3.896246950456853*^9}, {3.8962470261221743`*^9, 3.896247028426524*^9}, {
   3.8962479736583967`*^9, 3.89624797576932*^9}, 3.8962481637003307`*^9, 
   3.896248360804446*^9, {3.896248865166951*^9, 3.896248865638084*^9}, 
   3.8962489732404413`*^9, 3.896249510135578*^9, 3.896253297553278*^9, {
   3.896253353174135*^9, 3.896253363515573*^9}, {3.896253420007099*^9, 
   3.896253420052924*^9}, {3.896253475365512*^9, 3.896253477957603*^9}, {
   3.896253528839517*^9, 3.896253530364293*^9}, {3.896253592132263*^9, 
   3.8962535949074306`*^9}, 3.896254411598815*^9, {3.896259543507779*^9, 
   3.8962595548184233`*^9}, {3.896259604875214*^9, 3.896259605042103*^9}, 
   3.896259641284771*^9, {3.896260851744389*^9, 3.8962608520239058`*^9}, {
   3.89626099388616*^9, 3.896260993930797*^9}, {3.896261029059024*^9, 
   3.896261029118433*^9}, {3.896261412289307*^9, 3.8962614123961573`*^9}, {
   3.896261476361484*^9, 3.896261504748332*^9}, {3.896261884296034*^9, 
   3.8962618934798183`*^9}, {3.896852907824437*^9, 3.896852919592903*^9}, {
   3.896853088687676*^9, 3.896853107163468*^9}, {3.896853214543079*^9, 
   3.896853277403655*^9}, {3.8968535761661654`*^9, 3.896853576840423*^9}, 
   3.896853706890362*^9, {3.89685471488765*^9, 3.896854776263294*^9}, {
   3.8968548535091133`*^9, 3.896854869106722*^9}, 3.8968553452232857`*^9, {
   3.896855596371025*^9, 3.89685559646996*^9}, 3.896922447608083*^9, 
   3.896928491589931*^9, {3.896933835165987*^9, 3.896933840142089*^9}, 
   3.896937320528051*^9, 3.8969373654973097`*^9, {3.896937468236788*^9, 
   3.896937468403767*^9}, {3.8969375878658447`*^9, 3.896937616724633*^9}, 
   3.8969388210587263`*^9, {3.896938975785695*^9, 3.896938978807228*^9}, {
   3.89693916172998*^9, 3.896939163967545*^9}, {3.896939206376258*^9, 
   3.896939218913179*^9}, 3.896939271330421*^9, {3.896939431386485*^9, 
   3.896939435412593*^9}, {3.89694381553085*^9, 3.8969439376896563`*^9}, {
   3.8969439856591787`*^9, 3.896944020466487*^9}, {3.89694422906931*^9, 
   3.896944229221839*^9}, {3.896944412533223*^9, 3.896944425423764*^9}, {
   3.8969540047276707`*^9, 3.896954007134009*^9}, 3.896954048419269*^9, {
   3.897100290024877*^9, 3.897100296297215*^9}, {3.898848850265087*^9, 
   3.898848884545754*^9}, 3.898850461808099*^9, {3.899785702750943*^9, 
   3.8997857575878677`*^9}, 3.899786034043378*^9, {3.899786443075292*^9, 
   3.899786495440786*^9}, {3.8997865590784388`*^9, 3.8997865680874653`*^9}, {
   3.899786603255475*^9, 3.8997866111615047`*^9}, {3.899788869634983*^9, 
   3.899788913326682*^9}, {3.89978903878537*^9, 3.899789041769376*^9}, {
   3.902981823355267*^9, 3.902981841873431*^9}, 3.902981877658331*^9, {
   3.902981913794977*^9, 3.902981948513788*^9}, {3.902982035437167*^9, 
   3.902982037075218*^9}, 3.902983677784533*^9, 3.9029842432068033`*^9},
 CellLabel->"In[47]:=",ExpressionUUID->"9b69cb34-a418-4708-a167-6f6271e9bebc"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Baseline", " ", "Homo", " ", "Model"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"LaunchKernels", "[", "5", "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"initialPoint", "=", 
     RowBox[{"{", 
      RowBox[{
      "1.007077299060296`", ",", "1.0993981646675897`", ",", 
       "1.3332603391511384`"}], "}"}]}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{"Initial", " ", "guess", " ", "for", " ", "the", " ", "point"}], 
    "*)"}], "\n", 
   RowBox[{
    RowBox[{"gridDensity", "=", 
     RowBox[{"{", 
      RowBox[{"5", ",", "5", ",", "5"}], "}"}]}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{
    "Number", " ", "of", " ", "grid", " ", "points", " ", "for", " ", "each", 
     " ", "dimension"}], "*)"}], "\n", 
   RowBox[{
    RowBox[{"del", "=", 
     RowBox[{"{", 
      RowBox[{"0.001", ",", "0.001", ",", "0.001"}], "}"}]}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{
    "Initial", " ", "search", " ", "interval", " ", "size", " ", "for", " ", 
     "each", " ", "dimension"}], "*)"}], "\n", 
   RowBox[{
    RowBox[{"target", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"gYCutoffstarget", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
       RowBox[{"gYCutoffstarget", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
       RowBox[{"gYCutoffstarget", "[", 
        RowBox[{"[", 
         RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "}"}]}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{"Target", " ", "value", " ", "to", " ", "approach"}], "*)"}], 
   "\n", 
   RowBox[{
    RowBox[{"tolerance", "=", 
     SuperscriptBox["10", 
      RowBox[{"-", "7"}]]}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{
    "Desired", " ", "Euclidean", " ", "distance", " ", "from", " ", "target", 
     " ", "to", " ", "stop", " ", "iterations"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Timing", "[", 
    RowBox[{
     RowBox[{"optimizedProductivities", "=", 
      RowBox[{"IterativeFindMinPoint", "[", 
       RowBox[{
       "initialPoint", ",", "gridDensity", ",", "del", ",", "target", ",", 
        "tolerance", ",", "testHomoBaseline"}], "]"}]}], ";"}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.896944126350226*^9, 3.8969441292403793`*^9}, 
   3.896944488433318*^9, 3.8971002999006653`*^9, {3.897100344496537*^9, 
   3.8971003510560102`*^9}, 3.898848915393612*^9, {3.89885051993509*^9, 
   3.8988505268224373`*^9}, {3.899785954983572*^9, 3.899785956453437*^9}, {
   3.8997860184831877`*^9, 3.899786024607092*^9}, {3.899786573621533*^9, 
   3.899786576369308*^9}, {3.899786661919064*^9, 3.8997866638705177`*^9}, {
   3.8997867315621243`*^9, 3.899786753333034*^9}, {3.899788801590303*^9, 
   3.899788802324766*^9}, {3.899788977595862*^9, 3.8997890046902*^9}, {
   3.899789102085335*^9, 3.89978912746209*^9}, {3.902978316407731*^9, 
   3.9029783186538963`*^9}, {3.902985128215288*^9, 3.9029851700164833`*^9}, {
   3.902985582458509*^9, 3.9029855885959253`*^9}},
 CellLabel->"In[57]:=",ExpressionUUID->"0ce49b74-db08-4194-b167-075946289c5f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.409975`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{
  3.90298440792344*^9, 3.90298491580014*^9, 3.902985147894402*^9, {
   3.902985572707375*^9, 3.9029855909623213`*^9}},
 CellLabel->"Out[63]=",ExpressionUUID->"6a1e2f99-f663-4b64-90ab-fc2f58fc06ef"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputDataBaselineHomo", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"lrintr", "\[Rule]", "lrintrparm"}], ",", 
     RowBox[{
     "matchlrirBaselinyears", "\[Rule]", "matchlrirBaselinyearsparm"}], ",", 
     RowBox[{"stdevbeta", "\[Rule]", "stdevbetaparm"}], ",", 
     RowBox[{"gNCutoffs", "\[Rule]", "gNCutoffsparms"}], ",", 
     RowBox[{"gNyearsFuture", "\[Rule]", "gNyearsFutureparm"}], ",", 
     RowBox[{"gNss", "\[Rule]", "gNssparm"}], ",", 
     RowBox[{"gDCutoffs", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1775", ",", 
          RowBox[{"optimizedProductivities", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1875", ",", 
          RowBox[{"optimizedProductivities", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2000", ",", 
          RowBox[{"optimizedProductivities", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"gDyearsFuture", "\[Rule]", "gDyearsFutureparm"}], ",", 
     RowBox[{"gDss", "\[Rule]", "gDssparm"}], ",", 
     RowBox[{"\[Nu]", "\[Rule]", "\[Nu]parm"}], ",", 
     RowBox[{"\[Delta]", "\[Rule]", "\[Delta]parm"}], ",", 
     RowBox[{"Pie", "\[Rule]", 
      RowBox[{"smoothedpie", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ",", 
     RowBox[{"Piess", "\[Rule]", "Piessparm"}], ",", 
     RowBox[{"lrconssh", "\[Rule]", "lrconsshparm"}], ",", 
     RowBox[{"nTypes", "\[Rule]", "1"}], ",", 
     RowBox[{"precision", "\[Rule]", "precisionparm"}], ",", 
     RowBox[{"inityear", "\[Rule]", "inityearparm"}], ",", 
     RowBox[{"currentyear", "\[Rule]", "currentyearparm"}], ",", " ", 
     RowBox[{"time", "\[Rule]", "timeparm"}], ",", 
     RowBox[{"\[Omega]", "\[Rule]", "\[Omega]parm"}], ",", 
     RowBox[{"Pie28", "\[Rule]", 
      RowBox[{"smoothedpie", "[", 
       RowBox[{"[", 
        RowBox[{"30", ",", "2"}], "]"}], "]"}]}], ",", 
     RowBox[{"ave\[Beta]", "->", "averageBeta2000Baseline"}], ",", 
     RowBox[{"percentiles", "->", "percentilesparm"}], ",", 
     RowBox[{"Nm1", "->", "Nm1parm"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.902984670092277*^9, {3.9029847488637257`*^9, 3.9029847666123323`*^9}},
 CellLabel->"In[74]:=",ExpressionUUID->"964c987d-3f8b-4379-bd64-d6c8197e208c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"allParmsBaselineHomo", ",", "pointsBaselineHomo"}], "}"}], "=", 
   RowBox[{"calibrationHomo", "[", "inputDataBaselineHomo", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.899786136494556*^9, 3.8997861388462677`*^9}, {
  3.899786791618416*^9, 3.899786796814698*^9}},
 CellLabel->"In[77]:=",ExpressionUUID->"675a80cc-9e9d-4ec5-9c7f-7c2cf04dc942"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"(*", "pointsBaseline5Homo", "*)"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8653969466343913`*^9, 3.86539695053154*^9}, {
  3.89978680400443*^9, 3.8997868072735767`*^9}},
 CellLabel->"In[80]:=",ExpressionUUID->"d07bc4f2-7c11-402a-86c6-c0bcf5cfc119"],

Cell[BoxData[
 RowBox[{
  RowBox[{"pointsBaseline5Homo", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"pointsBaselineHomo", ",", 
     RowBox[{"{", 
      RowBox[{"initpoints", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SubscriptBox["ax", 
           RowBox[{"-", "1"}]], "\[Rule]", "0.138197858433927`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "0"], "\[Rule]", "0.13819785805558474`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "1"], "\[Rule]", "0.13819785569848256`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "2"], "\[Rule]", "0.13819785008599306`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "3"], "\[Rule]", "0.1381978377540378`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "4"], "\[Rule]", "0.1381978109356419`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "5"], "\[Rule]", "0.13819775263044676`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "6"], "\[Rule]", "0.13819762571755012`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "7"], "\[Rule]", "0.13819734907920683`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "8"], "\[Rule]", "0.13819674524401093`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "9"], "\[Rule]", "0.13819542548939953`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "10"], "\[Rule]", "0.13819253753036856`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "11"], "\[Rule]", "0.13818621131000017`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "12"], "\[Rule]", "0.13817234233979012`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "13"], "\[Rule]", "0.13814192670873918`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "14"], "\[Rule]", "0.1380752577383249`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "15"], "\[Rule]", "0.13792946491632474`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "16"], "\[Rule]", "0.13761263647006597`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "17"], "\[Rule]", "0.1369343355744682`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "18"], "\[Rule]", "0.13553056355440615`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "19"], "\[Rule]", "0.132832273072191`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "20"], "\[Rule]", "0.12837653940949034`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "21"], "\[Rule]", "0.12287022559652512`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "22"], "\[Rule]", "0.11898392768352238`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "23"], "\[Rule]", "0.11922347433632118`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "24"], "\[Rule]", "0.12290344207189183`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "25"], "\[Rule]", "0.12728313696389665`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "26"], "\[Rule]", "0.13055564796474897`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "27"], "\[Rule]", "0.13243015691515478`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "28"], "\[Rule]", "0.13393242316466014`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "29"], "\[Rule]", "0.1342652132810281`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "30"], "\[Rule]", "0.13443493913514803`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "31"], "\[Rule]", "0.13848794808618708`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "32"], "\[Rule]", "0.29171471495169715`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "33"], "\[Rule]", "0.39608471544812274`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "34"], "\[Rule]", "0.4387643655411396`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "35"], "\[Rule]", "0.4540796022855937`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "36"], "\[Rule]", "0.4593371330387514`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "37"], "\[Rule]", "0.46111524435167667`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "38"], "\[Rule]", "0.4617135985063211`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "39"], "\[Rule]", "0.46191461256317257`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "40"], "\[Rule]", "0.46198210406099266`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "41"], "\[Rule]", "0.4620047603775137`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "42"], "\[Rule]", "0.46201236542414525`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "43"], "\[Rule]", "0.4620149181558673`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "44"], "\[Rule]", "0.46201577500695595`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "45"], "\[Rule]", "0.4620160626172887`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "46"], "\[Rule]", "0.462016159156393`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "47"], "\[Rule]", "0.4620161915606395`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "48"], "\[Rule]", "0.46201620243742464`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "49"], "\[Rule]", "0.46201620608831806`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "50"], "\[Rule]", "0.4620162073137743`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "51"], "\[Rule]", "0.46201620772510993`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "52"], "\[Rule]", "0.46201620786317854`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "53"], "\[Rule]", "0.4620162079095225`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "54"], "\[Rule]", "0.4620162079250784`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "55"], "\[Rule]", "0.46201620793029985`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "56"], "\[Rule]", "0.4620162079320525`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "57"], "\[Rule]", "0.4620162079326408`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "58"], "\[Rule]", "0.4620162079328382`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "59"], "\[Rule]", "0.4620162079329045`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "60"], "\[Rule]", "0.4620162079329266`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "61"], "\[Rule]", "0.4620162079329342`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "62"], "\[Rule]", "0.46201620793293663`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "63"], "\[Rule]", "0.4620162079329376`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "64"], "\[Rule]", "0.4620162079329379`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "65"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "66"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "67"], "\[Rule]", "0.46201620793293785`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "68"], "\[Rule]", "0.4620162079329379`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "69"], "\[Rule]", "0.4620162079329379`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "70"], "\[Rule]", "0.46201620793293796`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "71"], "\[Rule]", "0.4620162079329379`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "72"], "\[Rule]", "0.4620162079329379`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "73"], "\[Rule]", "0.46201620793293796`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "74"], "\[Rule]", "0.46201620793293785`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "75"], "\[Rule]", "0.46201620793293785`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "76"], "\[Rule]", "0.46201620793293785`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "77"], "\[Rule]", "0.46201620793293785`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "78"], "\[Rule]", "0.46201620793293785`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "79"], "\[Rule]", "0.46201620793293785`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "80"], "\[Rule]", "0.46201620793293807`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "81"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "82"], "\[Rule]", "0.4620162079329379`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "83"], "\[Rule]", "0.46201620793293785`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "84"], "\[Rule]", "0.4620162079329379`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "85"], "\[Rule]", "0.46201620793293796`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "86"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "87"], "\[Rule]", "0.46201620793293796`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "88"], "\[Rule]", "0.4620162079329379`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "89"], "\[Rule]", "0.4620162079329379`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "90"], "\[Rule]", "0.4620162079329379`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "91"], "\[Rule]", "0.46201620793293796`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "92"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "93"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "94"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "95"], "\[Rule]", "0.46201620793293796`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "96"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "97"], "\[Rule]", "0.4620162079329379`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "98"], "\[Rule]", "0.4620162079329379`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "99"], "\[Rule]", "0.46201620793293785`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "100"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "101"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "102"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "103"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "104"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "105"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "106"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "107"], "\[Rule]", "0.46201620793293785`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "108"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "109"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "110"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "111"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "112"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "113"], "\[Rule]", "0.46201620793293785`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "114"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "115"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "116"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "117"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "118"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "119"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "120"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "121"], "\[Rule]", "0.46201620793293807`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "122"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "123"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "124"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "125"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "126"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "127"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "128"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "129"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "130"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "131"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "132"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "133"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "134"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "135"], "\[Rule]", "0.46201620793293785`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "136"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "137"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "138"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "139"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "140"], "\[Rule]", "0.46201620793293785`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "141"], "\[Rule]", "0.46201620793293785`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "142"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "143"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "144"], "\[Rule]", "0.4620162079329378`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "145"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "146"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "147"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "148"], "\[Rule]", "0.46201620793293785`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "149"], "\[Rule]", "0.46201620793293785`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "150"], "\[Rule]", "0.4620162079329378`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "151"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "152"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "153"], "\[Rule]", "0.46201620793293807`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "154"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "155"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "156"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "157"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "158"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "159"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "160"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "161"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "162"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "163"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "164"], "\[Rule]", "0.46201620793293785`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "165"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "166"], "\[Rule]", "0.4620162079329378`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "167"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "168"], "\[Rule]", "0.46201620793293785`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "169"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "170"], "\[Rule]", "0.4620162079329378`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "171"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "172"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "173"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "174"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "175"], "\[Rule]", "0.46201620793293785`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "176"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "177"], "\[Rule]", "0.46201620793293785`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "178"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "179"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "180"], "\[Rule]", "0.46201620793293785`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "181"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "182"], "\[Rule]", "0.46201620793293785`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "183"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "184"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "185"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "186"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "187"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "188"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "189"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "190"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "191"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "192"], "\[Rule]", "0.46201620793293785`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "193"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "194"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "195"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "196"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "197"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "198"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "199"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "200"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ktilde", "0"], "\[Rule]", "0.005721196741191497`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "1"], "\[Rule]", "0.0057211965557257514`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "2"], "\[Rule]", "0.005721196105815789`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "3"], "\[Rule]", "0.005721195144208351`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "4"], "\[Rule]", "0.005721193127922815`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "5"], "\[Rule]", "0.005721188917344798`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "6"], "\[Rule]", "0.0057211801413640205`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "7"], "\[Rule]", "0.00572116188369954`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "8"], "\[Rule]", "0.005721123982546206`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "9"], "\[Rule]", "0.005721045510219113`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "10"], "\[Rule]", "0.005720883561473196`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "11"], "\[Rule]", "0.005720550675538221`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "12"], "\[Rule]", "0.005719869891173428`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "13"], "\[Rule]", "0.0057184867507933295`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "14"], "\[Rule]", "0.005715701389432532`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "15"], "\[Rule]", "0.005710161855156384`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "16"], "\[Rule]", "0.005699349465333766`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "17"], "\[Rule]", "0.005678872757044115`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "18"], "\[Rule]", "0.005642065205175128`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "19"], "\[Rule]", "0.00558200269524375`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "20"], "\[Rule]", "0.0055014245563821075`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "21"], "\[Rule]", "0.005435577959737892`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "22"], "\[Rule]", "0.005465688956090472`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "23"], "\[Rule]", "0.0056632409151162735`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "24"], "\[Rule]", "0.006006325530147773`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "25"], "\[Rule]", "0.006391312365148725`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "26"], "\[Rule]", "0.006709027000450864`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "27"], "\[Rule]", "0.006915616893338251`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "28"], "\[Rule]", "0.007049633004343486`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "29"], "\[Rule]", "0.0071169731984199935`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "30"], "\[Rule]", "0.007125655148421176`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "31"], "\[Rule]", "0.0070507002869153014`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "32"], "\[Rule]", "0.0049221648423019276`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "33"], "\[Rule]", "0.012377521342464238`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "34"], "\[Rule]", "0.01683724386781646`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "35"], "\[Rule]", "0.018664777773350787`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "36"], "\[Rule]", "0.01932109147719166`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "37"], "\[Rule]", "0.019546457952396918`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "38"], "\[Rule]", "0.019622684658394268`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "39"], "\[Rule]", "0.019648336600194036`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "40"], "\[Rule]", "0.019656954332076114`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "41"], "\[Rule]", "0.019659847789961583`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "42"], "\[Rule]", "0.019660819100101968`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "43"], "\[Rule]", "0.01966114513994497`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "44"], "\[Rule]", "0.019661254579426746`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "45"], "\[Rule]", "0.01966129131393455`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "46"], "\[Rule]", "0.019661303644226604`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "47"], "\[Rule]", "0.019661307783004744`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "48"], "\[Rule]", "0.01966130917222404`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "49"], "\[Rule]", "0.01966130963852835`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "50"], "\[Rule]", "0.019661309795047707`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "51"], "\[Rule]", "0.019661309847584876`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "52"], "\[Rule]", "0.019661309865219464`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "53"], "\[Rule]", "0.019661309871138677`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "54"], "\[Rule]", "0.019661309873125508`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "55"], "\[Rule]", "0.019661309873792412`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "56"], "\[Rule]", "0.019661309874016264`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "57"], "\[Rule]", "0.019661309874091402`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "58"], "\[Rule]", "0.01966130987411662`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "59"], "\[Rule]", "0.019661309874125087`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "60"], "\[Rule]", "0.019661309874127928`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "61"], "\[Rule]", "0.019661309874128875`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "62"], "\[Rule]", "0.019661309874129198`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "63"], "\[Rule]", "0.019661309874129305`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "64"], "\[Rule]", "0.019661309874129347`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "65"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "66"], "\[Rule]", "0.019661309874129364`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "67"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "68"], "\[Rule]", "0.019661309874129358`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "69"], "\[Rule]", "0.019661309874129364`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "70"], "\[Rule]", "0.019661309874129358`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "71"], "\[Rule]", "0.019661309874129364`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "72"], "\[Rule]", "0.019661309874129364`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "73"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "74"], "\[Rule]", "0.019661309874129358`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "75"], "\[Rule]", "0.019661309874129358`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "76"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "77"], "\[Rule]", "0.019661309874129354`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "78"], "\[Rule]", "0.019661309874129358`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "79"], "\[Rule]", "0.019661309874129354`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "80"], "\[Rule]", "0.019661309874129364`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "81"], "\[Rule]", "0.019661309874129368`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "82"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "83"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "84"], "\[Rule]", "0.019661309874129358`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "85"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "86"], "\[Rule]", "0.019661309874129364`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "87"], "\[Rule]", "0.019661309874129364`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "88"], "\[Rule]", "0.019661309874129364`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "89"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "90"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "91"], "\[Rule]", "0.019661309874129364`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "92"], "\[Rule]", "0.019661309874129368`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "93"], "\[Rule]", "0.019661309874129364`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "94"], "\[Rule]", "0.019661309874129368`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "95"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "96"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "97"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "98"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "99"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "100"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "101"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "102"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "103"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "104"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "105"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "106"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "107"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "108"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "109"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "110"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "111"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "112"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "113"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "114"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "115"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "116"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "117"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "118"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "119"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "120"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "121"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "122"], "\[Rule]", "0.019661309874129368`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "123"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "124"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "125"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "126"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "127"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "128"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "129"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "130"], "\[Rule]", "0.019661309874129368`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "131"], "\[Rule]", "0.019661309874129368`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "132"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "133"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "134"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "135"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "136"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "137"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "138"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "139"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "140"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "141"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "142"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "143"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "144"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "145"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "146"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "147"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "148"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "149"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "150"], "\[Rule]", "0.019661309874129354`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "151"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "152"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "153"], "\[Rule]", "0.019661309874129368`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "154"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "155"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "156"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "157"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "158"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "159"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "160"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "161"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "162"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "163"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "164"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "165"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "166"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "167"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "168"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "169"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "170"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "171"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "172"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "173"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "174"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "175"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "176"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "177"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "178"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "179"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "180"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "181"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "182"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "183"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "184"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "185"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "186"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "187"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "188"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "189"], "\[Rule]", "0.019661309874129354`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "190"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "191"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "192"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "193"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "194"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "195"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "196"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "197"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "198"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "199"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "200"], "\[Rule]", 
          "0.019661309874129364`"}]}], "}"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8653969381577187`*^9, 3.86539695053154*^9}, 
   3.865397131606562*^9, 3.865409797503383*^9, {3.8654150511833105`*^9, 
   3.865415056662835*^9}, {3.8997861466517982`*^9, 3.899786153510077*^9}, {
   3.8997868094954033`*^9, 3.899786816180777*^9}},
 CellLabel->"In[81]:=",ExpressionUUID->"15bf04f0-649e-4054-868e-ace365e8962d"]
}, Closed]],

Cell[BoxData[
 RowBox[{
  RowBox[{"ansBaselineHomo", "=", 
   RowBox[{"SolveModel", "[", "pointsBaseline5Homo", "]"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.894621771551372*^9, 3.894621772124641*^9}, {
  3.899786141516303*^9, 3.899786162146639*^9}, {3.899786823818075*^9, 
  3.899786828507215*^9}},
 CellLabel->"In[82]:=",ExpressionUUID->"549333fb-a998-480a-b151-b2831e6e6f7a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ValuesToExportBaseline", "=", 
   RowBox[{"computeValuesToExport", "[", 
    RowBox[{"ansBaseline", ",", "allParmsBaseline"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ValuesToExportBaselineHomo", "=", 
   RowBox[{"computeValuesToExport", "[", 
    RowBox[{"ansBaselineHomo", ",", "allParmsBaselineHomo"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ValuesToExportBaselineHomo", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "=", 
   RowBox[{"MapAt", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"#", "<>", "\"\<Homo\>\""}], "&"}], ",", 
     RowBox[{"ValuesToExportBaselineHomo", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"List", "/@", 
      RowBox[{"Range", "[", 
       RowBox[{"2", ",", 
        RowBox[{"Length", "[", 
         RowBox[{"ValuesToExportBaselineHomo", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ValuesToExportBaselineHomo", "=", 
   RowBox[{"Drop", "[", 
    RowBox[{"ValuesToExportBaselineHomo", ",", "None", ",", 
     RowBox[{"{", "1", "}"}]}], "]"}]}], ";", 
  RowBox[{"ValuesToExportBaselineAndHomo", "=", 
   RowBox[{"Join", "[", 
    RowBox[{
    "ValuesToExportBaseline", ",", "ValuesToExportBaselineHomo", ",", "2"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.899787526359387*^9, 3.899787527993348*^9}, {
  3.899787656567903*^9, 3.899787658279039*^9}, {3.899787764696746*^9, 
  3.8997877900655127`*^9}, {3.899787825179677*^9, 3.899787842081368*^9}, {
  3.899789597981697*^9, 3.8997896057748632`*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"1928c675-6fe0-4282-a106-11919d98fdd8"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"destination", "=", 
   RowBox[{
   "path", "<>", "\"\</Outputs/Model/Baseline/modelOutputs.csv\>\""}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
   "destination", ",", "ValuesToExportBaselineAndHomo", ",", "\"\<Table\>\"", 
    ",", 
    RowBox[{"\"\<FieldSeparators\>\"", "->", "\"\<,\>\""}]}], "]"}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.899264099278194*^9, 3.899264110483062*^9}, {
   3.899264174549271*^9, 3.8992642361882687`*^9}, 3.89926587081075*^9, {
   3.899266726427477*^9, 3.8992667267852497`*^9}, {3.899266785213581*^9, 
   3.899266786011243*^9}, 3.8993678538047132`*^9, {3.89936911683537*^9, 
   3.899369125799675*^9}, {3.8994587178247766`*^9, 3.899458789610697*^9}, {
   3.899459275305784*^9, 3.899459283667201*^9}, 3.8994601680668697`*^9, 
   3.899789492856543*^9, {3.9027252294890327`*^9, 3.9027252355400057`*^9}, 
   3.9027254300923023`*^9, 3.902823975060841*^9, 
   3.902824207913622*^9},ExpressionUUID->"3425096a-7345-4677-b173-\
85e13c5afeca"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"destination", "=", 
   RowBox[{
   "path", "<>", "\"\</Outputs/Model/Baseline/CalibParameters.csv\>\""}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"destination", ",", 
    RowBox[{"Prepend", "[", 
     RowBox[{
      RowBox[{"exportCalibvals", "[", 
       RowBox[{
       "allParmsBaseline", ",", "ansBaseline", ",", "inputDataBaseline"}], 
       "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"\"\<parm\>\"", ",", "\"\<val\>\"", ",", "\"\<valTarget\>\""}],
        "}"}]}], "]"}], ",", "\"\<Table\>\"", ",", 
    RowBox[{"\"\<FieldSeparators\>\"", "->", "\"\<,\>\""}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{
  3.899804671011921*^9, {3.899804755815641*^9, 3.899804762842641*^9}, 
   3.8998049011844807`*^9, {3.9027254273619413`*^9, 3.902725433839901*^9}, 
   3.902823983001882*^9, 
   3.9028242069950123`*^9},ExpressionUUID->"3a63c550-4008-4b8f-ab8d-\
e71aa097a916"],

Cell[BoxData[
 RowBox[{
  RowBox[{"compositionResults", "[", 
   RowBox[{
   "initialDistributionBaseline", ",", "ansBaseline", ",", 
    "inputDataBaseline", ",", "allParmsBaseline", ",", "\"\<Baseline\>\""}], 
   "]"}], ";"}]], "Input",
 CellChangeTimes->{
  3.9028215876175957`*^9},ExpressionUUID->"3306faf6-db0e-40c9-803a-\
748ff0290d49"]
},
WindowSize->{756, 916},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"13.2 for Mac OS X ARM (64-bit) (January 30, 2023)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"b9b9d033-d504-4952-9624-f49209bade86"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 727, 18, 30, "Input",ExpressionUUID->"67beb7bc-9248-43dd-b4af-1546c6fd0f2a"],
Cell[1288, 40, 494, 8, 30, "Input",ExpressionUUID->"0e3423c1-6fa4-4a1f-86df-632925b9f48e"],
Cell[1785, 50, 8379, 235, 996, "Input",ExpressionUUID->"80642749-6d5c-454f-8484-9edfa202c9cf"],
Cell[10167, 287, 2583, 47, 199, "Input",ExpressionUUID->"89237a9e-a47e-4a2f-af88-6f9cc1173e9b"],
Cell[12753, 336, 318, 7, 30, "Input",ExpressionUUID->"ddb61612-9b75-47e9-99fb-e19d76b863ed"],
Cell[13074, 345, 617, 13, 52, "Input",ExpressionUUID->"3391aa10-d5df-4d52-bc91-6a2d06b9bfc0"],
Cell[CellGroupData[{
Cell[13716, 362, 466, 9, 30, "Input",ExpressionUUID->"469c6d3e-6719-40c1-acdf-a067dbc7e53a",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[14185, 373, 37953, 920, 1984, "Input",ExpressionUUID->"312377ef-d324-4dca-9593-03da9c34f9bc",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[52153, 1296, 983, 17, 48, "Input",ExpressionUUID->"36682ada-3a6a-4a28-9f38-11a3238e820b"],
Cell[53139, 1315, 383, 8, 30, "Input",ExpressionUUID->"2aa0845a-0b64-4412-9454-50cfae194af2"],
Cell[53525, 1325, 543, 13, 30, "Input",ExpressionUUID->"2a0d2d47-ca37-4a06-b520-2ff528cfc4df"],
Cell[CellGroupData[{
Cell[54093, 1342, 632, 12, 52, "Input",ExpressionUUID->"499591c0-7467-436a-8cb6-105bed8594ea",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[54728, 1356, 66014, 1484, 5405, "Input",ExpressionUUID->"9b69cb34-a418-4708-a167-6f6271e9bebc",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[120779, 2845, 3132, 77, 258, "Input",ExpressionUUID->"0ce49b74-db08-4194-b167-075946289c5f"],
Cell[123914, 2924, 302, 6, 34, "Output",ExpressionUUID->"6a1e2f99-f663-4b64-90ab-fc2f58fc06ef"]
}, Open  ]],
Cell[124231, 2933, 2522, 55, 262, "Input",ExpressionUUID->"964c987d-3f8b-4379-bd64-d6c8197e208c"],
Cell[126756, 2990, 414, 9, 30, "Input",ExpressionUUID->"675a80cc-9e9d-4ec5-9c7f-7c2cf04dc942"],
Cell[CellGroupData[{
Cell[127195, 3003, 320, 5, 30, "Input",ExpressionUUID->"d07bc4f2-7c11-402a-86c6-c0bcf5cfc119",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[127518, 3010, 43694, 1112, 2257, "Input",ExpressionUUID->"15bf04f0-649e-4054-868e-ace365e8962d",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[171227, 4125, 382, 8, 26, "Input",ExpressionUUID->"549333fb-a998-480a-b151-b2831e6e6f7a"],
Cell[171612, 4135, 1720, 42, 199, "Input",ExpressionUUID->"1928c675-6fe0-4282-a106-11919d98fdd8"],
Cell[173335, 4179, 1069, 22, 94, "Input",ExpressionUUID->"3425096a-7345-4677-b173-85e13c5afeca"],
Cell[174407, 4203, 958, 25, 94, "Input",ExpressionUUID->"3a63c550-4008-4b8f-ab8d-e71aa097a916"],
Cell[175368, 4230, 342, 9, 52, "Input",ExpressionUUID->"3306faf6-db0e-40c9-803a-748ff0290d49"]
}
]
*)

